Aminet 5/Aminet 5 - March 1995.iso/Aminet/util/gnu/a2_0bEmacs_bin.lha/Emacs-19.25/lisp/files.elc

Text File | 1994-11-02 | 57KB | 830 lines

(defconst delete-auto-save-files t "\
*Non-nil means delete a buffer's auto-save file when the buffer is saved.")

(defconst directory-abbrev-alist nil "\
*Alist of abbreviations for file directories.
A list of elements of the form (FROM . TO), each meaning to replace
FROM with TO when it appears in a directory name.  This replacement is
done when setting up the default directory of a newly visited file.
*Every* FROM string should start with `^'.

Do not use `~' in the TO strings.
They should be ordinary absolute directory names.

Use this feature when you have directories which you normally refer to
via absolute symbolic links.  Make TO the name of the link, and FROM
the name it is linked to.")

(defconst make-backup-files (not (eq system-type (quote vax-vms))) "\
*Non-nil means make a backup of a file the first time it is saved.
This can be done by renaming the file or by copying.

Renaming means that Emacs renames the existing file so that it is a
backup file, then writes the buffer into a new file.  Any other names
that the old file had will now refer to the backup file.  The new file
is owned by you and its group is defaulted.

Copying means that Emacs copies the existing file into the backup
file, then writes the buffer on top of the existing file.  Any other
names that the old file had will now refer to the new (edited) file.
The file's owner and group are unchanged.

The choice of renaming or copying is controlled by the variables
`backup-by-copying', `backup-by-copying-when-linked' and
`backup-by-copying-when-mismatch'.  See also `backup-inhibited'.")

(defvar backup-inhibited nil "\
Non-nil means don't make a backup, regardless of the other parameters.
This variable is intended for use by making it local to a buffer.
But it is local only if you make it local.")

(put (quote backup-inhibited) (quote permanent-local) t)

(defconst backup-by-copying nil "\
*Non-nil means always use copying to create backup files.
See documentation of variable `make-backup-files'.")

(defconst backup-by-copying-when-linked nil "\
*Non-nil means use copying to create backups for files with multiple names.
This causes the alternate names to refer to the latest version as edited.
This variable is relevant only if `backup-by-copying' is nil.")

(defconst backup-by-copying-when-mismatch nil "\
*Non-nil means create backups by copying if this preserves owner or group.
Renaming may still be used (subject to control of other variables)
when it would not result in changing the owner or group of the file;
that is, for files which are owned by you and whose group matches
the default for a new file created there by you.
This variable is relevant only if `backup-by-copying' is nil.")

(defvar backup-enable-predicate (quote (lambda (name) (or (< (length name) 5) (not (string-equal "/tmp/" (substring name 0 5)))))) "\
Predicate that looks at a file name and decides whether to make backups.
Called with an absolute file name as argument, it returns t to enable backup.")

(defconst buffer-offer-save nil "\
*Non-nil in a buffer means offer to save the buffer on exit
even if the buffer is not visiting a file.
Automatically local in all buffers.")

(make-variable-buffer-local (quote buffer-offer-save))

(defconst find-file-existing-other-name nil "\
*Non-nil means find a file under alternative names, in existing buffers.
This means if any existing buffer is visiting the file you want
under another name, you get the existing buffer instead of a new buffer.")

(defconst find-file-visit-truename nil "\
*Non-nil means visit a file under its truename.
The truename of a file is found by chasing all links
both at the file level and at the levels of the containing directories.")

(defvar buffer-file-truename nil "\
The abbreviated truename of the file visited in the current buffer.
That is, (abbreviated-file-name (file-truename buffer-file-name)).
This variable is automatically local in all buffers, when non-nil.")

(make-variable-buffer-local (quote buffer-file-truename))

(put (quote buffer-file-truename) (quote permanent-local) t)

(defvar buffer-file-number nil "\
The device number and file number of the file visited in the current buffer.
The value is a list of the form (FILENUM DEVNUM).
This pair of numbers uniquely identifies the file.
If the buffer is visiting a new file, the value is nil.")

(make-variable-buffer-local (quote buffer-file-number))

(put (quote buffer-file-number) (quote permanent-local) t)

(defconst file-precious-flag nil "\
*Non-nil means protect against I/O errors while saving files.
Some modes set this non-nil in particular buffers.")

(defvar version-control nil "\
*Control use of version numbers for backup files.
t means make numeric backup versions unconditionally.
nil means make them for files that have some already.
`never' means do not make them.")

(defvar dired-kept-versions 2 "\
*When cleaning directory, number of versions to keep.")

(defvar trim-versions-without-asking nil "\
*If t, deletes excess backup versions silently.
If nil, asks confirmation.  Any other value prevents any trimming.")

(defvar kept-old-versions 2 "\
*Number of oldest versions to keep when a new numbered backup is made.")

(defvar kept-new-versions 2 "\
*Number of newest versions to keep when a new numbered backup is made.
Includes the new backup.  Must be > 0")

(defconst require-final-newline nil "\
*Value of t says silently ensure a file ends in a newline when it is saved.
Non-nil but not t says ask user whether to add a newline when there isn't one.
nil means don't add newlines.")

(defconst auto-save-default t "\
*Non-nil says by default do auto-saving of every file-visiting buffer.")

(defconst auto-save-visited-file-name nil "\
*Non-nil says auto-save a buffer in the file it is visiting, when practical.
Normally auto-save files are written under other names.")

(defconst save-abbrevs nil "\
*Non-nil means save word abbrevs too when files are saved.
Loading an abbrev file sets this to t.")

(defconst find-file-run-dired t "\
*Non-nil says run dired if `find-file' is given the name of a directory.")

(defvar find-file-not-found-hooks nil "\
List of functions to be called for `find-file' on nonexistent file.
These functions are called as soon as the error is detected.
`buffer-file-name' is already set up.
The functions are called in the order given until one of them returns non-nil.")

(defvar find-file-hooks nil "\
List of functions to be called after a buffer is loaded from a file.
The buffer's local variables (if any) will have been processed before the
functions are called.")

(defvar write-file-hooks nil "\
List of functions to be called before writing out a buffer to a file.
If one of them returns non-nil, the file is considered already written
and the rest are not called.
These hooks are considered to pertain to the visited file.
So this list is cleared if you change the visited file name.
See also `write-contents-hooks'.
Don't make this variable buffer-local; instead, use `local-write-file-hooks'.")

(put (quote write-file-hooks) (quote permanent-local) t)

(defvar local-write-file-hooks nil "\
Just like `write-file-hooks', except intended for per-buffer use.
The functions in this list are called before the ones in
`write-file-hooks'.")

(make-variable-buffer-local (quote local-write-file-hooks))

(put (quote local-write-file-hooks) (quote permanent-local) t)

(defvar write-contents-hooks nil "\
List of functions to be called before writing out a buffer to a file.
If one of them returns non-nil, the file is considered already written
and the rest are not called.
These hooks are considered to pertain to the buffer's contents,
not to the particular visited file; thus, `set-visited-file-name' does
not clear this variable, but changing the major mode does clear it.
See also `write-file-hooks'.")

(defconst enable-local-variables t "\
*Control use of local-variables lists in files you visit.
The value can be t, nil or something else.
A value of t means local-variables lists are obeyed;
nil means they are ignored; anything else means query.

The command \\[normal-mode] always obeys local-variables lists
and ignores this variable.")

(defconst enable-local-eval (quote maybe) "\
*Control processing of the \"variable\" `eval' in a file's local variables.
The value can be t, nil or something else.
A value of t means obey `eval' variables;
nil means ignore them; anything else means query.

The command \\[normal-mode] always obeys local-variables lists
and ignores this variable.")

(defconst backup-char (if (eq system-type (quote amigados)) "!" "~") "\
Character to add to file names to make backup names.")

(defconst autosave-char (if (eq system-type (quote amigados)) "@" "#") "\
Character to add to file names to make autosave names.")

(defconst bufferfile-char (if (eq system-type (quote amigados)) "^" "%") "\
Character to add to buffer names to make file names.")

(or (fboundp (quote lock-buffer)) (defalias (quote lock-buffer) (quote ignore)))

(or (fboundp (quote unlock-buffer)) (defalias (quote unlock-buffer) (quote ignore)))

(defun ange-ftp-completion-hook-function (op &rest args) (byte-code "Ä>ƒÅÆ    #‚Ç=…
BÅ    \"*‡" [op args inhibit-file-name-handlers inhibit-file-name-operation (file-name-completion file-name-all-completions) apply ange-ftp-hook-function ange-ftp-completion-hook-function] 4))

(defun pwd nil "\
Show the current default directory." (interactive nil) (byte-code "ÀˆÂà    \"‡" [nil default-directory message "Directory %s"] 3))

(defvar cd-path nil "\
Value of the CDPATH environment variable, as a list.
Not actually set up until the first time you you use it.")

(defun parse-colon-path (cd-path) "\
Explode a colon-separated list of paths into a string list." (byte-code "…AÅÅÆÅÇP‰ˆÈÇ#‰…>É
Uƒ(ł0ÊËO!!C\"‰ˆÌ\\‰ˆ‚ˆ
,‡" [cd-path cd-prefix cd-list cd-start cd-colon nil 0 ":" string-match nconc substitute-in-file-name file-name-as-directory 1] 9))

(defun cd-absolute (dir) "\
Change current directory to given absolute file name DIR." (byte-code "ÃÄ!!‰ˆ    Å=?…Æ!‰ˆÇ!?ƒ#ÈÉ\"‚3Ê!ƒ/‰‚3ÈË\"‡" [dir system-type default-directory abbreviate-file-name expand-file-name vax-vms file-name-as-directory file-directory-p error "%s is not a directory" file-executable-p "Cannot cd to %s:  Permission denied"] 9))

(defun cd (dir) "\
Make DIR become the current buffer's default directory.
If your environment includes a `CDPATH' variable, try each one of that
colon-separated list of directories when resolving a relative directory name." (interactive "FChange default directory: ") (byte-code "ÈÄ!ƒÅÆ!!‚/    ?…$ÇÈÉ!!
†!ÊC‰)ˆË̍?…/ÍÎ!‡" [dir cd-path trypath nil file-name-absolute-p cd-absolute expand-file-name parse-colon-path getenv "CDPATH" "./" found (byte-code "ÂÃ\"ˆÁ‡" [cd-path nil mapcar (lambda (x) (byte-code "Ä
P!Å!…Æ!ˆÇÈÃ\")‡" [f x dir t expand-file-name file-directory-p cd-absolute throw found] 6))] 3) error "No such directory found via CDPATH environment variable"] 7))

(defun load-file (file) "\
Load the Lisp file named FILE." (interactive "fLoad file: ") (byte-code "ÁˆÃÄ!ÁÁÂ$‡" [file nil t load expand-file-name] 6))

(defun load-library (library) "\
Load the library named LIBRARY.
This is an interface to the function `load'." (interactive "sLoad library: ") (byte-code "ÁˆÂ!‡" [library nil load] 2))

(defun file-local-copy (file &optional buffer) "\
Copy the file FILE into a temporary file on this machine.
Returns the name of the local copy, or nil, if FILE is directly
accessible." (byte-code "à    Ä\"ƒÅÄ    #‚Â)‡" [handler file nil find-file-name-handler file-local-copy funcall] 5))

(defun file-truename (filename) "\
Return the truename of FILENAME, which should be absolute.
The truename of a file name is found by chasing symbolic links
both at the level of the file and at the level of the directories
containing it, until no links are left at any level." (byte-code "ÅÆ\"†ÅÇÈOÆ\"…ÉÊ\"…(Ë!‰ˆÅÌ\"…(͉ˆÎÏ\"    ƒ:Ð    Ï#‚¡Ñ!ÒÒÓ
!‰ˆÅ
\"†VÔÏ!!‰ˆÕÖ×!\"ƒjÓÑÓ
!!!‚ ÕØ×!\"ƒyÓ
!‚
×!P‰ˆÙ!‰ˆƒŸÚ!ƒ—Ï!‚œÏ
P!‚ +)‡" [filename handler dir target dirfile string= "~" 0 1 string-match "~[^/]*" expand-file-name "" "/" find-file-name-handler file-truename funcall file-name-directory nil directory-file-name file-name-as-directory equal ".." file-name-nondirectory "." file-symlink-p file-name-absolute-p] 27))

(defun file-chase-links (filename) "\
Chase links in FILENAME until a name that is not a link.
Does not examine containing directories for links,
unlike `file-truename'." (byte-code "ÄÅÆ
!‰…h    ÇU…ÈÉ\"ˆÊË\"…4ÇÌÇ!TOÍÇ!ÄOP‰ˆ‚ˆÊÎ\"…VÏÄO‰ˆÐÑÒÓÑÒ
!!!!!!‰ˆ‚5ˆÔÒ
!\"‰ˆ    S‰ˆ‚ˆ
+‡" [tem count newname filename nil 100 file-symlink-p 0 error "Apparent cycle of symbolic links for %s" string-match "//+" match-beginning match-end "\\`\\.\\./" 3 file-name-as-directory directory-file-name file-name-directory file-chase-links expand-file-name] 17))

(defun switch-to-buffer-other-window (buffer) "\
Select buffer BUFFER in another window." (interactive "BSwitch to buffer in other window: ") (byte-code "ÈÁÄ
Á\")‡" [pop-up-windows t buffer nil pop-to-buffer] 3))

(defun switch-to-buffer-other-frame (buffer) "\
Switch to buffer BUFFER in another frame." (interactive "BSwitch to buffer in other frame: ") (byte-code "ÈÁÄ
Á\")‡" [pop-up-frames t buffer nil pop-to-buffer] 3))

(defun find-file (filename) "\
Edit file FILENAME.
Switch to a buffer visiting file FILENAME,
creating one if none already exists." (interactive "FFind file: ") (byte-code "ÁˆÂÃ!!‡" [filename nil switch-to-buffer find-file-noselect] 3))

(defun find-file-other-window (filename) "\
Edit file FILENAME, in another window.
May create a new window, or reuse an existing one.
See the function `display-buffer'." (interactive "FFind file in other window: ") (byte-code "ÁˆÂÃ!!‡" [filename nil switch-to-buffer-other-window find-file-noselect] 3))

(defun find-file-other-frame (filename) "\
Edit file FILENAME, in another frame.
May create a new frame, or reuse an existing one.
See the function `display-buffer'." (interactive "FFind file in other frame: ") (byte-code "ÁˆÂÃ!!‡" [filename nil switch-to-buffer-other-frame find-file-noselect] 3))

(defun find-file-read-only (filename) "\
Edit file FILENAME but don't allow changes.
Like \\[find-file] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing." (interactive "fFind file read-only: ") (byte-code "ÈÄ!ˆÂ‰ˆp‡" [filename buffer-read-only t nil find-file] 3))

(defun find-file-read-only-other-window (filename) "\
Edit file FILENAME in another window but don't allow changes.
Like \\[find-file-other-window] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing." (interactive "fFind file read-only other window: ") (byte-code "ÈÄ!ˆÂ‰ˆp‡" [filename buffer-read-only t nil find-file-other-window] 3))

(defun find-file-read-only-other-frame (filename) "\
Edit file FILENAME in another frame but don't allow changes.
Like \\[find-file-other-frame] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing." (interactive "fFind file read-only other frame: ") (byte-code "ÈÄ!ˆÂ‰ˆp‡" [filename buffer-read-only t nil find-file-other-frame] 3))

(defun find-alternate-file (filename) "\
Find file FILENAME, select its buffer, kill previous buffer.
If the current buffer now contains an empty file that you just visited
(presumably by mistake), use this command to visit the file you really want." (interactive (byte-code "    ÃÃ…Å!Æ!‰ˆÇÈÃÃ
%C+‡" [file buffer-file-name file-name nil file-dir file-name-nondirectory file-name-directory read-file-name "Find alternate file: "] 8)) (byte-code "ÃˆÍ …ÎÏÐÑ \"!?…ÒÓ!ˆp    
Ñ     ÔÕ!ˆÃ‰ˆÃ‰ˆÃ‰
ˆÖŽ× ˆØ!)ˆp=†MÙ!-‡" [file buffer-file-name file-name nil file-dir obuf ofile onum buffer-file-number otrue buffer-file-truename oname filename buffer-modified-p yes-or-no-p format "Buffer %s is modified; kill anyway? " buffer-name error "Aborted" rename-buffer " **lose**" ((byte-code "p=…
‰ˆ‰ˆ‰ˆÈ ˆÉ!‡" [obuf buffer-file-name ofile buffer-file-number onum buffer-file-truename otrue oname lock-buffer rename-buffer] 3)) unlock-buffer find-file kill-buffer] 11))

(defun create-file-buffer (filename) "\
Create a suitably named buffer for visiting FILENAME, and return it.
FILENAME (sans directory) is used unchanged if that name is free;
otherwise a string <2> or <3> or ... is appended to get an unused name." (byte-code "    !ÃÄ\"…    ‰ˆÅ!)‡" [lastname filename file-name-nondirectory string= "" generate-new-buffer] 4))

(defun generate-new-buffer (name) "\
Create and return a buffer with a name based on NAME.
Choose the buffer's name using `generate-new-buffer-name'." (byte-code "ÁÂ!!‡" [name get-buffer-create generate-new-buffer-name] 3))

(defconst automount-dir-prefix "^/tmp_mnt/" "\
Regexp to match the automounter prefix in a directory name.")

(defvar abbreviated-home-dir nil "\
The user's homedir abbreviated according to `directory-abbrev-list'.")

(defun abbreviate-file-name (filename) "\
Return a version of FILENAME shortened using `directory-abbrev-alist'.
This also substitutes \"~\" for the user's home directory.
Type \\[describe-variable] directory-abbrev-alist RET for more information." (byte-code "Ç    \"…ÈÉ    ÊË!SÌO!!…    ÊË!SÌO‰ˆ
…CÇ
@@    \"…:
@A    ÊË!ÌOP‰ˆ
A‰ˆ‚!ˆ†UÍÎÏÐÑ!!ÒQ)‰ˆÇ    \"…ÊË!ÓU…j    ËHÔU?…Õ=…€Ö ׎ÇØ    \"))?…–Ñ    ÙÓ!ÊÓ!O    ÊË!ÌOQ‰ˆ    )‡" [automount-dir-prefix filename tail directory-abbrev-alist abbreviated-home-dir system-type match-data string-match file-exists-p file-name-directory match-end 0 nil "$foo" "^" abbreviate-file-name expand-file-name "~" "\\(/\\|$\\)" 1 47 ms-dos match-data ((byte-code "Á!‡" [match-data store-match-data] 2)) "^[a-zA-Z]:/$" match-beginning] 21))

(defvar find-file-not-true-dirname-list nil "\
*List of logical names for which visiting shouldn't save the true dirname.
On VMS, when you visit a file using a logical name that searches a path,
you may or may not want the visited file name to record the specific
directory where the file was found.  If you *do not* want that, add the logical
name to this list as a string.")

(defun find-buffer-visiting (filename) "\
Return the buffer visiting file FILENAME (a string).
This is like `get-file-buffer', except that it checks for any buffer
visiting the same file, possibly under a different name.
If there is no such live buffer, return nil." (byte-code "É    !ÊË    !!†’Ì Í?……;Š@qˆ…*Î
\"…1@‰)ˆA‰ˆ‚ˆ*†’ÏÐÑ
!\"Ì Í…?…Y…Š@qˆ…~Ò\"…~Ó!…~ÒÏÐÑ!\"\"……@‰)ˆA‰ˆ‚Sˆ+*‡" [buf filename truename list found buffer-file-name buffer-file-truename number buffer-file-number get-file-buffer abbreviate-file-name file-truename buffer-list nil string= nthcdr 10 file-attributes equal file-exists-p] 16))

(defun find-file-noselect (filename &optional nowarn) "\
Read file FILENAME into a buffer and return the buffer.
If a buffer exists visiting FILENAME, return that one, but
verify that the file has not changed since visited or saved.
The buffer is not selected, just returned to the caller." (byte-code "ÔÕ!!‰ˆÖ!ƒ    ƒ×!‚ÆØ\"‚\"
Ù!ÔÚ!!ÛÜÝ!\"
?…8Þ!ß…c†UàÐ!\"†UáâÐ!#ˆ†]    …c‰ˆ
ƒ¢†Ÿã
!†Ÿä!?ƒÆå\"‚Ÿæçè
!ƒé‚Žêë!\"!…ŸŠ
qˆìÊÊ\")‚
Ší!‰ˆ
qˆî ˆßïðˆ‰ˆ‰ˆñ=…íßòóô!\"…Üô!õöõ!O‰ˆ÷\"?)…퉈    …üÕ!‰‰ˆô!‰ˆø\"?…
ùÓ!ˆÊ‰ˆú?\")ˆ
-‡" [filename find-file-run-dired buf truename number other error nowarn find-file-existing-other-name find-file-visit-truename t buffer-file-truename buffer-file-number system-type logical find-file-not-true-dirname-list buffer-file-name default-directory backup-enable-predicate backup-inhibited abbreviate-file-name expand-file-name file-directory-p dired-noselect "%s is a directory." get-file-buffer file-truename nthcdr 10 file-attributes find-buffer-visiting nil string-equal message "%s and %s are the same file" verify-visited-file-modtime file-exists-p "File %s no longer exists!" yes-or-no-p format buffer-modified-p "File %s changed on disk.  Discard your edits? " "File %s changed on disk.  Read the new version? " file-name-nondirectory revert-buffer create-file-buffer erase-buffer (byte-code "ÂÁ\"‡" [filename t insert-file-contents] 3) ((file-error (byte-code "Á‰ˆ
…Å
@!…ĉˆÁ?…\"
A‰ˆ‚)‡" [error t hooks find-file-not-found-hooks nil funcall] 4))) vax-vms string-match ":" file-name-directory 0 match-beginning member funcall make-local-variable after-find-file] 37))

(defun after-find-file (&optional error warn noauto) "\
Called after finding a file and by the default revert function.
Sets buffer mode, parses local variables.
Optional args ERROR, WARN, and NOAUTO: ERROR non-nil means there was an
error in reading the file.  WARN non-nil means warn if there
exists an auto-save file more recent than the visited file.
NOAUTO means don't mess with auto-save mode.
Finishes by calling the functions in `find-file-hooks'." (byte-code "Í    !?‰ˆ
ƒ«Ã…Î    !ƒ$ljˆÏ‚‰?ƒK…3ÐÑ     \"ƒ:҂HljˆƒGӂH‰?ƒYljˆÔ‚‰ÎÕ    !!ƒfւ‰×Ø    !!ƒtÉ‚‰Ã‰ˆ×ØÕØ    !!!!ƒˆÙ‚‰Ú…›Û!ˆ†›ÜÝÃÇ#*ˆ
…¥?…«ÞÇ!ˆßÇ!ˆàá\"‡" [buffer-read-only buffer-file-name noninteractive nil not-serious msg error t warn default-directory auto-save-default noauto find-file-hooks file-writable-p file-attributes "File exists, but cannot be read." file-newer-than-file-p make-auto-save-file-name "Auto save file is newer; consider M-x recover-file" "(New file)" "Note: file is write protected" directory-file-name "File not found and directory write-protected" file-exists-p file-name-directory "Use M-x make-dir RET RET to create the directory" "Use C-u M-x make-dir RET RET to create directory and its parents" message sit-for 1 auto-save-mode normal-mode mapcar funcall] 19))

(defun normal-mode (&optional find-file) "\
Choose the major mode for this buffer automatically.
Also sets up any specified local variables of the file.
Uses the visited file name, the -*- line, and the local variables spec.

This function is called automatically from `find-file'.  In that case,
we may set up specified local variables depending on the value of
`enable-local-variables': if it is t, we do; if it is nil, we don't;
otherwise, we query.  `enable-local-variables' is ignored if you
run `normal-mode' explicitly." (interactive) (byte-code "ˆ†Ã    †Ä!ˆÅÆǏˆÅÈɏ‡" [find-file default-major-mode nil funcall fundamental-mode err (byte-code "À ‡" [set-auto-mode] 2) ((error (byte-code "ÁÂÃ!\"‡" [err message "File mode specification error: %s" prin1-to-string] 4))) (byte-code "    ?† )‡" [enable-local-variables find-file hack-local-variables] 2) ((error (byte-code "ÁÂÃ!\"‡" [err message "File local-variables error: %s" prin1-to-string] 4)))] 4))

(defvar auto-mode-alist (mapcar (quote purecopy) (quote (("\\.text\\'" . text-mode) ("\\.c\\'" . c-mode) ("\\.h\\'" . c-mode) ("\\.tex\\'" . TeX-mode) ("\\.ltx\\'" . LaTeX-mode) ("\\.el\\'" . emacs-lisp-mode) ("\\.mm\\'" . nroff-mode) ("\\.me\\'" . nroff-mode) ("\\.ms\\'" . nroff-mode) ("\\.man\\'" . nroff-mode) ("\\.scm\\'" . scheme-mode) ("\\.l\\'" . lisp-mode) ("\\.lisp\\'" . lisp-mode) ("\\.f\\'" . fortran-mode) ("\\.for\\'" . fortran-mode) ("\\.p\\'" . pascal-mode) ("\\.pas\\'" . pascal-mode) ("\\.mss\\'" . scribe-mode) ("\\.pl\\'" . prolog-mode) ("\\.cc\\'" . c++-mode) ("\\.hh\\'" . c++-mode) ("\\.C\\'" . c++-mode) ("\\.H\\'" . c++-mode) ("\\.texinfo\\'" . texinfo-mode) ("\\.texi\\'" . texinfo-mode) ("\\.s\\'" . asm-mode) ("ChangeLog\\'" . change-log-mode) ("change.log\\'" . change-log-mode) ("changelo\\'" . change-log-mode) ("ChangeLog.[0-9]+\\'" . change-log-mode) ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) ("\\.[12345678]\\'" . nroff-mode) ("\\.TeX\\'" . TeX-mode) ("\\.sty\\'" . LaTeX-mode) ("\\.bbl\\'" . LaTeX-mode) ("\\.bib\\'" . bibtex-mode) ("\\.article\\'" . text-mode) ("\\.letter\\'" . text-mode) ("\\.tcl\\'" . tcl-mode) ("\\.lsp\\'" . lisp-mode) ("\\.awk\\'" . awk-mode) ("\\.prolog\\'" . prolog-mode) ("\\.tar\\'" . tar-mode) ("^/tmp/Re" . text-mode) ("/Message[0-9]*\\'" . text-mode) ("^/tmp/fol/" . text-mode) ("\\.y\\'" . c-mode) ("\\.lex\\'" . c-mode) ("\\.oak\\'" . scheme-mode) ("\\.scm.[0-9]*\\'" . scheme-mode) ("\\.sgm\\'" . sgml-mode) ("\\.sgml\\'" . sgml-mode) ("\\.dtd\\'" . sgml-mode) ("[]>:/]\\..*emacs\\'" . emacs-lisp-mode) ("[:/]_emacs\\'" . emacs-lisp-mode) ("\\.ml\\'" . lisp-mode)))) "\
Alist of filename patterns vs corresponding major mode functions.
Each element looks like (REGEXP . FUNCTION) or (REGEXP FUNCTION).
Visiting a file whose name matches REGEXP causes FUNCTION to be called.
If the element has the form (REGEXP FUNCTION), then after calling
FUNCTION, we delete the suffix that matched REGEXP and search the list
again for another match.")

(defconst interpreter-mode-alist (quote (("perl" . perl-mode) ("wish" . tcl-mode) ("wishx" . tcl-mode) ("tcl" . tcl-mode) ("tclsh" . tcl-mode) ("awk" . awk-mode) ("gawk" . awk-mode) ("scm" . scheme-mode))) "\
Alist mapping interpreter names to major modes.
This alist applies to files whose first line starts with `#!'.
Each element looks like (INTERPRETER . MODE).
The car of each element is compared with
the name of the interpreter specified in the first line.
If it matches, mode MODE is selected.")

(defconst inhibit-first-line-modes-regexps (quote ("\\.tar$")) "\
List of regexps; if one matches a file name, don't look for `-*-'.")

(defvar user-init-file "" "\
File name including directory of user's initialization file.")

(defun set-auto-mode nil "\
Select major mode appropriate for current buffer.
This checks for a -*- mode tag in the buffer's text,
compares the filename against the entries in `auto-mode-alist',
or checks the interpreter that runs this file against
`interpreter-mode-alist'.

It does not check for the `mode:' local variable in the
Local Variables section of the file; for that, use `hack-local-variables'.

If `enable-local-variables' is nil, this function does not check for a
-*- mode tag." (byte-code "ÌÌÌŠebˆÓÔ!ˆ…¿…Õ@\"?…*A‰ˆ‚ˆ?)…¿Ö׊ØÙÚ!…<Û!ˆ`)Ç#…¿ÓÜ!ˆ`‰ˆÖ×ŠØ ˆ`)Ç#…¿ÝÞ!ˆßÜ!ˆ`‰ˆbˆŠÖà    Ç#)ƒ¯ÇÖá    Ç#)…¬ÓÜ!ˆ`‰ˆÖâ    Ç#ƒ•Ýã!‚—    bˆßÜ!ˆäåæç`\"!èP!!ˆ‚s‚»äåæç    \"!èP!!ˆÇ‰ˆ
?…Ç…

é=†×
ê=Ç    ë    !‰    ˆ…Ž
̉ˆÌ?…ÿ…I
Õ@@    \"…>
@A:…
Û@8ƒ4
@A@    ìíì!O    lj‚>
@ẢˆA‰ˆ‚÷ˆƒV
ä!‚‰
ŠebˆÙî!ƒk
çíï!ðï!\"‚l
ñ)Ìòó!\"‰ˆ…ˆ
äA!**ˆ‚æ+)+‡" [beg end done enable-local-variables temp inhibit-first-line-modes-regexps buffer-file-name t case-fold-search name system-type keep-going nil alist auto-mode-alist mode interpreter elt interpreter-mode-alist skip-chars-forward "
" string-match search-forward "-*-" end-of-line looking-at "^#!" 2 "     " forward-char -3 skip-chars-backward ":" "mode:" ";" -1 funcall intern downcase buffer-substring "-mode" vax-vms amigados file-name-sans-versions 0 match-beginning "#! *\\([^
]+\\)" 1 match-end "" assoc file-name-nondirectory] 37))

(defun hack-local-variables-prop-line nil (byte-code "ŠebˆÁŠÈÉÊ!…Ë!ˆ`)ÌÍ
Ã#?ƒ!Á‚ŠÉÎ!ƒ+Á‚ŠŠÌÍ
Ã#ƒ<`ÏZ‰‚?ÐÑ!)ˆ`
W…„ÉÒ!†PÐÓ!ˆÔÕ!bˆÖ×ØÙÚ!ÔÚ!\"!!ŒÛ`
\"ˆÜp!)Ý=†{BB‰ˆÞß!*ˆ‚Aˆà!‰ˆ…Ã=†…á‹…µ…µâ@@@A\"ˆA‰ˆ‚ *)‡" [result nil end t key val enable-local-variables buffer-file-name end-of-line looking-at "^#!" 2 search-forward "-*-" "[     ]*\\([^
:;]+\\)\\([     ]*-\\*-\\)" 3 error "-*- not terminated before end of line" "[     ]*\\([^
:]+\\)[     ]*:[     ]*" "malformed -*- line" match-end 0 intern downcase buffer-substring match-beginning 1 narrow-to-region read mode skip-chars-forward "     ;" nreverse ((byte-code "ÁÂψÄÅÆÇ!\"!‡" [buffer-file-name nil (byte-code "Àp!‡" [switch-to-buffer] 2) ((error (byte-code "ÀÁ‡" [nil (byte-code "Àp!‡" [switch-to-buffer-other-window] 2) ((error (byte-code "Àp!‡" [switch-to-buffer-other-frame] 2)))] 3))) y-or-n-p format "Set local variables as specified in -*- line of %s? " file-name-nondirectory] 5)) hack-one-local-variable] 22))

(defun hack-local-variables nil "\
Parse and put into effect this buffer's local variables spec." (byte-code "Ï ˆŠdbˆÐÑdÒZe]Ó#ˆÁÔÕÂÁ#…'Á=†'…'֋)… 
ÁÂÂÂÂ

    ×Ø!ˆl†OÙ`Ú ˆ`\"‰ˆÛÜ!bˆn†cÙ`Ý ˆ`\"‰ˆ…uGÞ!‰ˆ…„Þ!ßP‰ˆ…
ƒ”àá!‚—âã!ˆ…®ä!ƒ«å!‚®æç!ˆ×Ø!ˆ`‰    ˆ×è!ˆl…Ãæé!ˆêØ!ˆÙ    `\"ë!Âìí!î\"ƒè‰‚
×ï!ˆåã!ˆëp!‰ˆêð!ˆ×Ø!ˆƒ
ä!‚
l†
æñ!ˆò\"+ˆ‚….)‡" [case-fold-search t nil enable-local-variables buffer-file-name continue prefix prefixlen suffix beg enable-local-eval selective-display str var val hack-local-variables-prop-line search-backward "
" 3000 move search-forward "Local Variables:" ((byte-code "Áp!ˆŠÂ ˆÃÄ `\")ˆÅÆǃÈ!‚ ÉÊ P\"!‡" [buffer-file-name switch-to-buffer beginning-of-line set-window-start selected-window y-or-n-p format "Set local variables as specified at end of %s? " file-name-nondirectory "buffer " buffer-name] 11)) skip-chars-forward "     " buffer-substring end-of-line match-beginning 0 beginning-of-line regexp-quote "$" re-search-forward "[
]" forward-line 1 looking-at forward-char error "Local variables entry is missing the prefix" "^:
" "Missing colon in local variables entry" skip-chars-backward read string-equal downcase "end" "^:" "
" "Local variables entry is terminated incorrectly" hack-one-local-variable] 35))

(defconst ignored-local-variables (quote (enable-local-eval)) "\
Variables to be ignored in a file's local variable spec.")

(put (quote enable-local-eval) (quote risky-local-variable) t)

(put (quote eval) (quote risky-local-variable) t)

(put (quote file-name-handler-alist) (quote risky-local-variable) t)

(put (quote minor-mode-map-alist) (quote risky-local-variable) t)

(put (quote after-load-alist) (quote risky-local-variable) t)

(put (quote buffer-file-name) (quote risky-local-variable) t)

(put (quote buffer-auto-save-file-name) (quote risky-local-variable) t)

(put (quote buffer-file-truename) (quote risky-local-variable) t)

(defun hack-one-local-variable-quotep (exp) (byte-code ":…@Á=…A:‡" [exp quote] 2))

(defun hack-one-local-variable (var val) (byte-code "Ç=ƒÈÉÊË    !!ÌP!!‚§
>ƒ§ÍN†*ÎÏË!\"ƒ Ð=…g    :…g    @Ñ=…gÒÓ    8!…gÒÔ    8!…gÕÖ    8!†]×Ö    8Ø\"…gÓÔ    88Ù>†ÚÛ Ü\"?…Å=†…݋ƒšÐ=ƒŠÐ    !)‚—Þ!ˆ    L‚ßà!‚§Þ!ˆ    L‡" [var val ignored-local-variables nil enable-local-eval t buffer-file-name mode funcall intern downcase symbol-name "-mode" risky-local-variable string-match "-hooks?$\\|-functions?$\\|-forms?$" eval put hack-one-local-variable-quotep 1 2 numberp 3 equal (quote defun) (lisp-indent-hook) string= user-login-name "root" ((byte-code "Âp!ˆŠÃ ˆÄÅ `\")ˆÆÇÈÉ    !\"!‰‡" [enable-local-eval buffer-file-name switch-to-buffer beginning-of-line set-window-start selected-window y-or-n-p format "Process `eval' or hook local variables in file %s? " file-name-nondirectory] 9)) make-local-variable message "Ignoring `eval:' in file's local variables"] 18))

(defun set-visited-file-name (filename) "\
Change name of file visited in current buffer to FILENAME.
The next time the buffer is saved it will go in the newly specified file.
nil or empty string as argument means make buffer not be visiting any file.
Remember to delete the initial contents of the minibuffer
if you wish to pass an empty string as the argument." (interactive "FSet visited file name: ") (byte-code "Áˆ…ÒÓ\"ƒÁ‚Ô!‰ˆÕ
\"†(…%Ö!ˆ× ˆ‰ˆ…_Ø
!ÙÓ\"…?ÚÛ!ˆÜ=…KÝ!‰ˆÞ
!‰ˆÙß \"†^àÆ\")ˆÁ‰ˆá ˆƒŠâã
!!‰ˆ    …~‰ˆäå
!8‰
‚‘ÁÁ‰
ˆæç!ˆæè!ˆæé!ˆæÎ!ˆ…«Á‰ˆæË!ˆê
\"?…ÁëÎ!ˆÆ‰ˆ?ƒÛ
…Ø…ØìÆ!‚àí ‰ˆ…ù…ùî!…ùïÆ#)ˆ
…
ðÆ!‡" [filename nil buffer-file-name new-name system-type default-directory t buffer-backed-up buffer-file-truename find-file-visit-truename buffer-file-number vc-mode buffer-read-only backup-enable-predicate backup-inhibited oauto buffer-auto-save-file-name auto-save-default string-equal "" expand-file-name equal lock-buffer unlock-buffer file-name-nondirectory string= error "Empty file name" vax-vms downcase file-name-directory buffer-name rename-buffer clear-visited-file-modtime abbreviate-file-name file-truename 10 file-attributes kill-local-variable write-file-hooks local-write-file-hooks revert-buffer-function funcall make-local-variable auto-save-mode make-auto-save-file-name file-exists-p rename-file set-buffer-modified-p] 31))

(defun write-file (filename) "\
Write current buffer into file FILENAME.
Makes buffer visit that file, and marks it not modified.
If the buffer is already visiting a file, you can specify
a directory name as FILENAME, to write a file of the same
old name in that directory." (interactive (byte-code "ƒÂÃÁÁÁÁ%‚ÂÃÄÅÆ \"AÁÁÇ %C‡" [buffer-file-name nil read-file-name "Write file: " assq default-directory buffer-local-variables buffer-name] 10)) (byte-code "Áˆ
?†%Ä
Å\"†%Æ
!……!Ç
!È!P‰ˆÉ
!ˆÊÃ!ˆË ‡" [buffer-file-name nil filename t string-equal "" file-directory-p file-name-as-directory file-name-nondirectory set-visited-file-name set-buffer-modified-p save-buffer] 8))

(defun backup-buffer nil "\
Make a backup of the disk file visited by the current buffer, if appropriate.
This is normally done before saving the buffer the first time.
If the value is non-nil, it is the result of `file-modes' on the original
file; this means that the caller, after saving the buffer, should change
the modes of the new file to agree with the old modes." (byte-code "…    ?
?…É!…ÊË!Ì\"ÍHÎ>…GÏÏÏÏÐ!‰ˆÑ!@A‰ˆÏÒӏ-‡" [make-backup-files backup-inhibited buffer-backed-up buffer-file-name real-file-name backup-info backupname targets setmodes file-exists-p elt file-attributes 8 0 (45 108) nil file-chase-links find-backup-file-name (byte-code "    …
Ã=†
Ä=…
†ÈÉÊ\"!ÄË̏ˆÃ‰ˆ…:    …:ÄÍΏˆ    A‰ˆ‚)ˆ)‡" [delete-old-versions targets trim-versions-without-asking t nil real-file-name buffer-backed-up setmodes y-or-n-p format "Delete excess backup versions of %s? " (byte-code "†*    †*
…É!ÊV†*…*Ë!Ì8†)ÍÎ8Ï \")ƒ4ÐÑҏ‚BÓÇ#ˆÔ!‰‡" [file-precious-flag backup-by-copying backup-by-copying-when-linked real-file-name backup-by-copying-when-mismatch attr backupname t setmodes file-nlinks 1 file-attributes 9 /= 2 user-uid nil (byte-code "à    ÂÂ$‡" [real-file-name backupname t copy-file] 5) ((file-error (byte-code "Ã!
Ä!?…Å!ˆÆ    ÂÂ$‡" [backupname real-file-name t file-exists-p file-writable-p delete-file copy-file] 8))) rename-file file-modes] 8) ((file-error (byte-code "ÃÄÅ    Æ
%!‰ˆÇÈ
$ˆÉÊ!ˆËÌ͏‡" [backupname bufferfile-char backup-char expand-file-name concat "~/" "backup" message "Cannot write backup file; backing up in ~/%sbackup%s%s" sleep-for 1 nil (byte-code "à    ÂÂ$‡" [real-file-name backupname t copy-file] 5) ((file-error (byte-code "Ã!
Ä!?…Å!ˆÆ    ÂÂ$‡" [backupname real-file-name t file-exists-p file-writable-p delete-file copy-file] 8)))] 7))) (byte-code "Á@!‡" [targets delete-file] 2) ((file-error (byte-code "À‡" [nil] 1)))] 6) ((file-error (byte-code "À‡" [nil] 1)))] 8))

(defun file-name-sans-versions (name &optional keep-backup-version) "\
Return FILENAME sans backup versions or strings.
This is a separate procedure so your site-init or startup file can
redefine it.
If the optional argument KEEP-BACKUP-VERSION is non-nil,
we do not remove backup version numbers, only true file version numbers." (byte-code "Å    Æ\"ƒÇÆ
$‚U    ÈÉ=ƒ3ÊË    \"†0ÊÌ    \"…+ÍÎ!†0    G‚T
ƒ<    G‚TÊÏÐÑÒ%    \"†TÊÒP    \"†T    GO)‡" [handler name keep-backup-version system-type backup-char find-file-name-handler file-name-sans-versions funcall 0 vax-vms string-match ";[-+]?[0-9]*\\'" "\\.[^]>:]*\\(\\.[-+]?[0-9]*\\)\\'" match-beginning 1 concat "\\." "[0-9]+" "\\'"] 14))

(defun make-backup-file-name (file) "\
Create the non-numeric backup file name for FILE.
This is a separate function so you can redefine it for customization." (byte-code "Ä=ƒ Å
!Æ
!ÇÈ    \"…    ÉÊË!OÌQ)‚#
P‡" [system-type fn file backup-char ms-dos file-name-nondirectory file-name-directory string-match "\\([^.]*\\)\\(\\..*\\)?" 0 match-end 1 ".bak"] 8))

(defun backup-file-name-p (file) "\
Return non-nil if FILE is a backup file name (numeric or not).
This is a separate function so you can redefine it for customization.
You may need to redefine `file-name-sans-versions' as well." (byte-code "Ã=ƒÄÅ    \"‚Ä
ÆP    \"‡" [system-type file backup-char ms-dos string-match "\\.bak$" "$"] 4))

(defun backup-extract-version (fn) "\
Given the name of a numeric backup file, return the backup number.
Uses the free variable `bv-length', whose value should be
the index in the name where the version number begins." (byte-code "ÃÄÅQ
#…ÆÇ!
UƒÈ
ÉO!‚LJ" [backup-char fn bv-length string-match "[0-9]+" "$" match-beginning 0 string-to-int -1] 6))

(defun find-backup-file-name (fn) "\
Find a file name for a backup file, and suggestions for deletions.
Value is a list whose car is the name for the backup file
 and whose cdr is a list of old versions to consider deleting now." (byte-code "Î=ƒÏ    !C‚qÐ    !ÑQ
GÇÇÒÇ    Ò
ÇÓԏˆ    ?ƒ7Ï    !C‚oÕ    ÑÖT!%
ÒV…R×Ø#ÒY…nÙÚÛ\"ÜÛ
S\"Ç\"ˆ)\"B.‡" [version-control fn base-versions backup-char bv-length possibilities versions nil high-water-mark deserve-versions-p number-to-delete kept-new-versions kept-old-versions v never make-backup-file-name file-name-nondirectory "." 0 (byte-code "Ê    Ë
!\"ÌÍÎK\"Ï\"ÐÑÒ#†ÒVÓG    Ô$‰‡" [possibilities base-versions fn versions high-water-mark deserve-versions-p version-control number-to-delete kept-old-versions kept-new-versions file-name-all-completions file-name-directory sort mapcar backup-extract-version < apply max 0 - -1] 11) ((file-error (byte-code "Á‰‡" [possibilities nil] 2))) concat int-to-string + -1 mapcar (lambda (n) (byte-code "ÃÄ    Å
!    %‡" [fn backup-char n concat "." int-to-string] 7)) nthcdr rplacd] 14))

(defun file-nlinks (filename) "\
Return number of names file FILENAME has." (byte-code "Á!A@‡" [filename file-attributes] 2))

(defun file-relative-name (filename &optional directory) "\
Convert FILENAME to be relative to DIRECTORY (default: default-directory)." (byte-code "Ä!ÅÄ    †
!!‰ˆÆÇÈÉ    !P\"?….Ê    ËÌO!ÍP‰ˆ‚ˆÎË!ÏOP)‡" [filename directory default-directory ancestor expand-file-name file-name-as-directory "" string-match "^" regexp-quote file-name-directory 0 -1 "../" match-end nil] 11))

(defun save-buffer (&optional args) "\
Save current buffer in visited file if modified.  Versions described below.
By default, makes the previous version into a backup file
 if previously requested or if this is the first save.
With 1 or 3 \\[universal-argument]'s, marks this version
 to become a backup when the next save is done.
With 2 or 3 \\[universal-argument]'s,
 unconditionally makes the previous version into a backup file.
With argument of 0, never makes the previous version into a backup file.

If a file's name is FOO, the names of its numbered backup versions are
 FOO.~i~ for various integers i.  A non-numbered backup file is called FOO~.
Numeric backups (rather than FOO~) will be made if value of
 `version-control' is not the atom `never' and either there are already
 numeric versions of the file being backed up, or `version-control' is
 non-nil.
We don't want excessive versions piling up, so there are variables
 `kept-old-versions', which tells Emacs how many oldest versions to keep,
 and `kept-new-versions', which tells how many newest versions to keep.
 Defaults are 2 old versions and 2 new.
`dired-kept-versions' controls dired's clean-directory (.) command.
If `trim-versions-without-asking' is nil, system will query user
 before trimming versions.  Otherwise it does it silently." (interactive "p") (byte-code "ÅˆÆ Ç ÈV
…É=?… Ê>… ʼnˆ…&    ….ËÌÍ \"ˆÎ ˆ…?Ï>…?ʼn+‡" [modp large make-backup-files args buffer-backed-up nil buffer-modified-p buffer-size 50000 0 (16 64) message "Saving file %s..." buffer-file-name basic-save-buffer (4 64)] 7))

(defun delete-auto-save-file-if-necessary (&optional force) "\
Delete auto-save file for current buffer if `delete-auto-save-files' is t.
Normally delete only if the file was written by this Emacs since
the last real save, but optional arg FORCE non-nil means delete anyway." (byte-code "…     … Ä
\"?… †Å … ÆÇȏˆÉ ‡" [buffer-auto-save-file-name delete-auto-save-files buffer-file-name force string= recent-auto-save-p nil (byte-code "Á!‡" [buffer-auto-save-file-name delete-file] 2) ((file-error (byte-code "À‡" [nil] 1))) set-buffer-auto-saved] 5))

(defun basic-save-buffer nil "\
Save the current buffer in its visited file, if it has been modified." (interactive) (byte-code "ÇˆÑ ƒüÒ ÇÇÓ=…ÔÕ!\"?…>ÇÕ!‰ˆÖ×!!Ø!‰ˆÙ!)ˆÚ!)ˆ†KÛÜÝÞ!Ç\"!ˆßp!†gà!?†gáâãä!\"!†gåæ!ˆŒç ˆdèV…¨édSfê\"…¨É=…‡dSfëU?…¨
É=†ž
…žìâíØ \"!…¨Šdbˆêc)ˆî#Ç…Äï@!‰?…ÑA‰ˆ‚¶ˆ?…Üð ‰*ˆêñ!8‰ˆ    …ïÇòó)ˆô!ˆõö!+‚ÿ÷ø!‡" [recent-save setmodes tempsetmodes system-type buffer-file-name buffer-new-name buf nil selective-display t require-final-newline hooks write-contents-hooks local-write-file-hooks write-file-hooks done buffer-file-number buffer-modified-p recent-auto-save-p vax-vms string= file-name-sans-versions create-file-buffer downcase buffer-name kill-buffer rename-buffer set-visited-file-name expand-file-name read-file-name "File to save in: " verify-visited-file-modtime file-exists-p yes-or-no-p format "%s has changed since visited or saved.  Save anyway? " file-name-nondirectory error "Save not confirmed" widen 1 /= 10 13 y-or-n-p "Buffer %s does not end in newline.  Add one? " append funcall basic-save-buffer-1 file-attributes (byte-code "    \"‡" [buffer-file-name setmodes set-file-modes] 3) ((error (byte-code "À‡" [nil] 1))) delete-auto-save-file-if-necessary run-hooks after-save-hook message "(No changes need to be saved)"] 32))

(defun basic-save-buffer-1 nil (byte-code "ÎÎÑ
!?…@Ò
!Ó!?ƒÔÕ\"‚?Ö
!?ƒ+Ô×\"‚?ØÙÚÛ
!\"!ƒ<ĉ‚?ÔÜ!)ˆ†IÝ ‰ˆƒÀÒ
!
ÎÎÎÎÎ
    މˆÄ‰
ˆ
…™Ùßàáâ&!‰ˆÖ!‰
ˆT‰ˆ‚oˆãŽä ˆåedÎ%ˆÄ‰)ˆæ
!‰ˆç
Ä#.‚ì…Æ    ?…Óæ
!‰ˆè
é\"ˆê=…ä…äë
Î\"ˆåed
ÎÄ%ˆ    *‡" [tempsetmodes setmodes buffer-file-name dir t buffer-backed-up file-precious-flag realname tempname temp nogood i succeed autosave-char nil system-type amiga-create-icons file-writable-p file-name-directory file-directory-p error "%s is not a directory" file-exists-p "Directory %s write-protected" yes-or-no-p format "File %s is write-protected; try to save anyway? " file-name-nondirectory "Attempt to save to a file which you aren't allowed to write" backup-buffer 0 concat "%s" "tmp" "%d" ((byte-code "†    !‡" [succeed tempname delete-file] 2)) clear-visited-file-modtime write-region file-modes rename-file set-file-modes 511 amigados amiga-put-icon] 28))

(defun save-some-buffers (&optional arg exiting) "\
Save some modified file-visiting buffers.  Asks user about each one.
Optional argument (the prefix) non-nil means save all with no questions.
Optional second argument EXITING means ask about certain non-file buffers
 as well as about file buffers." (interactive "P") (byte-code "ƈȋ‡" [files-done abbrevs-done save-abbrevs abbrevs-changed arg abbrev-file-name nil t ((byte-code "ÈÉÊË ÌÍÎÏEC%
…*…*†ÐÑÒ\"!…$ÓÆ!ˆÆ‰ˆÇÔV†9    †9ÕÖ!*‡" [files-done abbrevs-done save-abbrevs abbrevs-changed arg abbrev-file-name nil t map-y-or-n-p (lambda (buffer) (byte-code "Å!…;Æ!†    …qˆ
…Ç ÈV…;ƒ&Ă;Æ!ƒ5ÉÊÆ!\"‚;ÉËÌ!\"‡" [buffer exiting buffer-offer-save arg t buffer-modified-p buffer-file-name buffer-size 0 format "Save file %s? " "Save buffer %s? " buffer-name] 10)) (lambda (buffer) (byte-code "qˆÁ ‡" [buffer save-buffer] 2)) buffer-list ("buffer" "buffers" "save") 18 (lambda (buf) (byte-code "Ã!ˆÄ‰ˆÅ ˆÂ‡" [buf view-exit-action nil view-buffer (lambda (ignore) (exit-recursive-edit)) recursive-edit] 3)) "display the current buffer" y-or-n-p format "Save abbrevs in %s? " write-abbrev-file 0 message "(No files need saving)"] 9))] 1))

(defun not-modified (&optional arg) "\
Mark current buffer as unmodified, not needing to be saved.
With prefix arg, mark buffer as modified, so \\[save-buffer] will save." (interactive "P") (byte-code "ÁˆÂƒÂÄ!ˆÅ!‡" [arg nil message "Modification-flag set" "Modification-flag cleared" set-buffer-modified-p] 3))

(defun toggle-read-only (&optional arg) "\
Change whether this buffer is visiting its file read-only.
With arg, set read-only iff arg is positive." (interactive "P") (byte-code "ˆ    ?ƒ?‚à    !ÄV‰ˆÅÆ !‡" [buffer-read-only arg nil prefix-numeric-value 0 set-buffer-modified-p buffer-modified-p] 4))

(defun insert-file (filename) "\
Insert contents of file FILENAME into buffer after point.
Set mark after the inserted text.

This function is meant for the user to run interactively.
Don't call it from programs!  Use `insert-file-contents' instead.
(Its calling sequence is different; see its documentation)." (interactive "*fInsert file: ") (byte-code "ˆÃ!…ÄÅÆÇE\"ˆÈ!É`    A@\\!)‡" [filename tem nil file-directory-p signal file-error "Opening input file" "file is a directory" insert-file-contents push-mark] 6))

(defun append-to-file (start end filename) "\
Append the contents of the region to the end of file FILENAME.
When called from a function, expects three arguments,
START, END and FILENAME.  START and END are buffer positions
saying what text to write." (interactive "r
FAppend to file: ") (byte-code "ĈÅ
Ã$‡" [start end filename t nil write-region] 5))

(defun file-newest-backup (filename) "\
Return most recent backup file for FILENAME or nil if no backups exist." (byte-code "Å!Æ!Ç!È
\"É…:
@PA‰ˆÊ    !…0?†0Ë    \"…6    ‰ˆ‚ˆ-‡" [filename file dir comp newest expand-file-name file-name-nondirectory file-name-directory file-name-all-completions nil backup-file-name-p file-newer-than-file-p] 9))

(defun rename-uniquely nil "\
Rename current buffer to a similar name not already taken.
This function is useful for creating multiple shell process buffers
or multiple mail buffers, etc." (interactive) (byte-code "ˆÃÄ !Ä!Å!ˆÆ    !ˆÇÈ !*‡" [new-buf name nil generate-new-buffer buffer-name kill-buffer rename-buffer set-buffer-modified-p buffer-modified-p] 8))

(defun make-directory (dir &optional parents) "\
Create the directory DIR and any nonexistent parent dirs.
Interactively, the default choice of directory to create
is the current default directory for file names.
That is useful when you have visited a file in a nonexistint directory.

Noninteractively, the second (optional) argument PARENTS says whether
to create parent directories if they don't exist." (interactive (byte-code "ÃÄÁÁ%ÂD‡" [default-directory nil t read-file-name "Make directory: "] 6)) (byte-code "ÁˆÇÈ\"ƒÉÈ$‚W?ƒÊ!‚WËÌ!!ÁÍ!?…@BËÎ!!‰ˆ‚(ˆ…VÊ@!ˆA‰ˆ‚A*)‡" [default-directory nil t handler dir parents create-list find-file-name-handler make-directory funcall make-directory-internal directory-file-name expand-file-name file-exists-p file-name-directory] 12))

(put (quote revert-buffer-function) (quote permanent-local) t)

(defvar revert-buffer-function nil "\
Function to use to revert this buffer, or nil to do the default.")

(put (quote revert-buffer-insert-file-contents-function) (quote permanent-local) t)

(defvar revert-buffer-insert-file-contents-function nil "\
Function to use to insert contents when reverting this buffer.
Gets two args, first the nominal file name to use,
and second, t if reading the auto-save file.")

(defun revert-buffer (&optional ignore-auto noconfirm) "\
Replace the buffer text with the text of the visited file on disk.
This undoes all changes since the file was visited or saved.
With a prefix argument, offer to revert from latest auto-save file, if
that is more recent than the visited file.

When called from lisp, The first argument is IGNORE-AUTO; only offer
to revert from the auto-save file when this is nil.  Note that the
sense of this argument is the reverse of the prefix argument, for the
sake of backward compatibility.  IGNORE-AUTO is optional, defaulting
to nil.

Optional second argument NOCONFIRM means don't ask for confirmation at
all.

If the value of `revert-buffer-function' is non-nil, it is called to
do the work.

The default revert function runs the hook `before-revert-hook' at the
beginning and `after-revert-hook' at the end." (interactive (byte-code "?C‡" [prefix-arg] 1)) (byte-code "ʈ    ƒÏ
#‚¿`
?…)Ð …)…)Ñ!…)ÒÓ!ƒ3‚5?ƒCÔÕ!‚¾†NÖ×Ø\"!…¾ÙÚ!ˆ?…eÛp!?…eʉ    ˆÌ=†qʉˆỄ‡Ï#‚¬Ü!?…”ÔÝ\"ˆÊ†žÞ )ˆß ˆà?ÊÊÌ%*ˆd^bˆáÊÊÌ#ˆÙâ!ˆÌ+‡" [prefix-arg revert-buffer-function ignore-auto noconfirm opoint auto-save-p buffer-auto-save-file-name file-name buffer-file-name buffer-backed-up nil buffer-undo-list t buffer-read-only revert-buffer-insert-file-contents-function funcall recent-auto-save-p file-readable-p y-or-n-p "Buffer has been auto-saved recently.  Revert from auto-save file? " error "Buffer does not seem to be associated with any file" yes-or-no-p format "Revert buffer from file %s? " run-hooks before-revert-hook verify-visited-file-modtime file-exists-p "File %s no longer exists!" unlock-buffer widen insert-file-contents after-find-file after-revert-hook] 20))

(defun recover-file (file) "\
Visit file FILE, but get contents from its last auto-save file." (interactive (byte-code "    ÃÃ…Å!Æ!‰ˆÇÈÃÃ
%C+‡" [prompt-file buffer-file-name file-name nil file-dir file-name-nondirectory file-name-directory read-file-name "Recover file: "] 8)) (byte-code "ÈÊ!‰ˆËÌ!!…ÍÎ\"ˆÏ )Ð
\"?ƒ*ÍÑ
\"‚MҋƒJÓÔÈ\"!ˆÃ    Õ ˆÖ
Ã\")ˆ×ÃÃÈ#‚MÍØ!)‡" [prompt-file buffer-file-name file-name nil file-dir file system-type standard-output t buffer-read-only expand-file-name auto-save-file-name-p file-name-nondirectory error "%s is an auto-save file" make-auto-save-file-name file-newer-than-file-p "Auto-save file %s not current" ((byte-code "Å=?…\"ÆÇ    !ˆÈÉ    ÂÊ!ƒ˂Ì&‘ˆÍÎÏ\"!‡" [system-type standard-output nil file file-name vax-vms "*Directory*" buffer-disable-undo call-process "ls" file-symlink-p "-lL" "-l" yes-or-no-p format "Recover auto save file %s? "] 11)) switch-to-buffer find-file-noselect erase-buffer insert-file-contents after-find-file "Recover-file cancelled."] 15))

(defun kill-some-buffers nil "\
For each buffer, ask whether to kill it." (interactive) (byte-code "ÃˆÄ …B@Å    !Æ
Ç\"?…8È
ÉHÊ\"…8ËÌÍ
Î    !ƒ/ς0Ð#!…8Ñ    !*ˆA‰ˆ‚)‡" [list buffer name nil buffer-list buffer-name string-equal "" /= 0 32 yes-or-no-p format "Buffer %s %s.  Kill? " buffer-modified-p "HAS BEEN EDITED" "is unmodified" kill-buffer] 11))

(defun auto-save-mode (arg) "\
Toggle auto-saving of contents of current buffer.
With prefix argument ARG, turn auto-saving on if positive, else off." (interactive "P") (byte-code "Lj    ?ƒ?‚     Â=†     <† È    !…     ÉV…6…-…-?ƒ4‚6Ê ‰ˆÉW…Dɉˆt…UË̃S͂TÎ\"ˆ‡" [buffer-auto-save-file-name arg t buffer-file-name auto-save-visited-file-name buffer-read-only buffer-saved-size nil integerp 0 make-auto-save-file-name message "Auto-save %s (in this buffer)" "on" "off"] 5))

(defun rename-auto-save-file nil "\
Adjust current buffer's auto save file name for current conditions.
Also rename any existing auto save file, if it was made in this session." (byte-code "    Ä ‰ˆ…'    …'Å
\"?…'Å    \"?…'Æ!…'Ç …/È    Ã#)‡" [osave buffer-auto-save-file-name buffer-file-name t make-auto-save-file-name string= file-exists-p recent-auto-save-p rename-file] 9))

(defun make-auto-save-file-name nil "\
Return file name to use for auto-saves of current buffer.
Does not consider `auto-save-visited-file-name' as that variable is checked
before calling this function.  You can redefine this for customization.
See also `auto-save-file-name-p'." (byte-code "ƒÂ!    Ã!    R‚ ÄÅÆ    Ç    Ç    %È ÉÊ!#!‡" [buffer-file-name autosave-char file-name-directory file-name-nondirectory expand-file-name format concat "%s" buffer-name make-temp-name ""] 10))

(defun auto-save-file-name-p (filename) "\
Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.
FILENAME should lack slashes.  You can redefine this for customization." (byte-code "ÂÃÄÅÆ%    \"‡" [autosave-char filename string-match concat "^" ".*" "$"] 7))

(defconst list-directory-brief-switches (if (eq system-type (quote vax-vms)) "" "-CF") "\
*Switches for list-directory to pass to `ls' for brief listing,")

(defconst list-directory-verbose-switches (if (eq system-type (quote vax-vms)) "/PROTECTION/SIZE/DATE/OWNER/WIDTH=(OWNER:10)" "-l") "\
*Switches for list-directory to pass to `ls' for verbose listing,")

(defun list-directory (dirname &optional verbose) "\
Display a list of files in or matching DIRNAME, a la `ls'.
DIRNAME is globbed by the shell if necessary.
Prefix arg (second arg if noninteractive) means supply -l switch to `ls'.
Actions controlled by variables `list-directory-brief-switches'
and `list-directory-verbose-switches'." (interactive (byte-code "    ăłÆÂÂ$D)‡" [pfx current-prefix-arg nil default-directory read-file-name "List directory (verbose): " "List directory (brief): "] 5)) (byte-code "ˆƒ‚†‰ˆË!‰ˆÌÍ    !ˆÎÏ!ˆÎ!ˆÐ ˆŠÌqˆÑ!?
Ò

?$))‘)‡" [pfx current-prefix-arg nil default-directory switches verbose list-directory-verbose-switches list-directory-brief-switches dirname standard-output wildcard expand-file-name "*Directory*" buffer-disable-undo princ "Directory " terpri file-directory-p insert-directory] 12))

(defvar insert-directory-program "ls" "\
Absolute or relative name of the `ls' program used by `insert-directory'.")

(defun insert-directory (file switches &optional wildcard full-directory-p) "\
Insert directory listing for FILE, formatted according to SWITCHES.
Leaves point after the inserted text.
Optional third arg WILDCARD means treat FILE as shell wildcard.
Optional fourth arg FULL-DIRECTORY-P means file is a directory and
switches do not contain `d', so that a full listing is expected.

This works by running a directory listing program
whose name is in the variable `insert-directory-program'.
If WILDCARD, it also runs the shell specified by `shell-file-name'." (byte-code "ÍÎ    !Ï\"ƒÐÏ
&‚˜Ñ=ƒ%Ò
p#‚˜ƒ‚Ó    !ƒ5Ô    !‚:ÔÎ    !!Õ    !Ö×Ø#…kÖÙÖ!OÚÙÖ!ÊOQÛÖ!T‰ˆ‚DˆÜ    ÊËÊÝÞß
à%&+‚˜ÜÊËÊ
ƒ•á    !âP‚–    &)‡" [handler file switches wildcard full-directory-p system-type default-directory pattern beg shell-file-name nil t insert-directory-program find-file-name-handler expand-file-name insert-directory funcall vax-vms vms-read-directory file-name-absolute-p file-name-directory file-name-nondirectory 0 string-match "[
;<>&|{}()#$]" match-beginning "\\" match-end call-process "-c" concat " -d " " " file-name-as-directory "."] 25))

(defvar kill-emacs-query-functions nil "\
Functions to call with no arguments to query about killing Emacs.
If any of these functions returns nil, killing Emacs is cancelled.")

(defun save-buffers-kill-emacs (&optional arg) "\
Offer to save each buffer, then kill this Emacs process.
With prefix arg, silently save all file-visiting buffers, then kill." (interactive "P") (byte-code "ȈÉÁ\"ˆÁÊËÌ \">?†ÍÎ!…‡ÏÐ!?†WÐ È
…MÑ
@!Ò>…DÓ
@!Ó
@\"ˆ)…DÁ‰ˆ
A‰ˆ‚$ˆ?†VÍÔ!*…‡Á…f…~…rÕ@!‰ˆA‰ˆ‚`ˆ*…‡Ö ‡" [arg t processes active val functions kill-emacs-query-functions yes nil save-some-buffers mapcar (lambda (buf) (byte-code "Á!…    Â!‡" [buf buffer-file-name buffer-modified-p] 3)) buffer-list yes-or-no-p "Modified buffers exist; exit anyway? " fboundp process-list process-status (run stop open) process-kill-without-query "Active processes exist; kill them and exit anyway? " funcall kill-emacs] 14))

(define-key ctl-x-map "" (quote find-file))

(define-key ctl-x-map "" (quote toggle-read-only))

(define-key ctl-x-map "" (quote find-file-read-only))

(define-key ctl-x-map "" (quote find-alternate-file))

(define-key ctl-x-map "" (quote save-buffer))

(define-key ctl-x-map "s" (quote save-some-buffers))

(define-key ctl-x-map "" (quote write-file))

(define-key ctl-x-map "i" (quote insert-file))

(define-key esc-map "~" (quote not-modified))

(define-key ctl-x-map "" (quote list-directory))

(define-key ctl-x-map "" (quote save-buffers-kill-emacs))

(define-key ctl-x-4-map "f" (quote find-file-other-window))

(define-key ctl-x-4-map "r" (quote find-file-read-only-other-window))

(define-key ctl-x-4-map "" (quote find-file-other-window))

(define-key ctl-x-4-map "b" (quote switch-to-buffer-other-window))

(define-key ctl-x-4-map "" (quote display-buffer))

(define-key ctl-x-5-map "b" (quote switch-to-buffer-other-frame))

(define-key ctl-x-5-map "f" (quote find-file-other-frame))

(define-key ctl-x-5-map "" (quote find-file-other-frame))

(define-key ctl-x-5-map "r" (quote find-file-read-only-other-frame))